home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-20
/
schemaii.zip
/
SCHEMA.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-04-04
|
2KB
|
159 lines
ECHO OFF
CLS
D$
:TOP
IF ERRORLEVEL 94 GOTO WY
IF ERRORLEVEL 93 GOTO V3
IF ERRORLEVEL 92 GOTO V2
IF ERRORLEVEL 91 GOTO V1
IF ERRORLEVEL 90 GOTO 31
IF ERRORLEVEL 89 GOTO T3
IF ERRORLEVEL 88 GOTO T2
IF ERRORLEVEL 87 GOTO T1
IF ERRORLEVEL 86 GOTO S2
IF ERRORLEVEL 85 GOTO S1
IF ERRORLEVEL 84 GOTO SI
IF ERRORLEVEL 83 GOTO P3
IF ERRORLEVEL 82 GOTO P2
IF ERRORLEVEL 81 GOTO P1
IF ERRORLEVEL 80 GOTO O2
IF ERRORLEVEL 79 GOTO O1
IF ERRORLEVEL 78 GOTO NE
IF ERRORLEVEL 77 GOTO VG
IF ERRORLEVEL 76 GOTO MC
IF ERRORLEVEL 75 GOTO EG
IF ERRORLEVEL 74 GOTO 64
IF ERRORLEVEL 73 GOTO CG
IF ERRORLEVEL 72 GOTO VE
IF ERRORLEVEL 71 GOTO HE
IF ERRORLEVEL 70 GOTO G3
IF ERRORLEVEL 69 GOTO G2
IF ERRORLEVEL 68 GOTO G1
IF ERRORLEVEL 67 GOTO A2
IF ERRORLEVEL 66 GOTO A1
IF ERRORLEVEL 65 GOTO AT
IF ERRORLEVEL 0 GOTO END
:WY
D$ ^
GOTO TOP
:V3
D$ ]
GOTO TOP
:V2
D$ \
GOTO TOP
:V1
D$ [
GOTO TOP
:31
D$ Z
GOTO TOP
:T3
D$ Y
GOTO TOP
:T2
D$ X
GOTO TOP
:T1
D$ W
GOTO TOP
:S2
D$ V
GOTO TOP
:S1
D$ U
GOTO TOP
:SI
D$ T
GOTO TOP
:P3
D$ S
GOTO TOP
:P2
D$ R
GOTO TOP
:P1
D$ Q
GOTO TOP
:O2
D$ P
GOTO TOP
:O1
D$ O
GOTO TOP
:NE
D$ N
GOTO TOP
:VG
D$ M
GOTO TOP
:MC
D$ L
GOTO TOP
:EG
D$ K
GOTO TOP
:64
D$ J
GOTO TOP
:CG
D$ I
GOTO TOP
:VE
D$ H
GOTO TOP
:HE
D$ G
GOTO TOP
:G3
D$ F
GOTO TOP
:G2
D$ E
GOTO TOP
:G1
D$ D
GOTO TOP
:A2
D$ C
GOTO TOP
:A1
D$ B
GOTO TOP
:AT
D$ A
GOTO TOP
:END
ECHO ON